﻿Imports CrystalDecisions.Shared
Public Class frmVisorBusGRangoFecha
    Dim idDVID As New ParameterDiscreteValue
    Dim idDV2ID As New ParameterDiscreteValue
    Public vidPagoFecha1 As String
    Public vidPagoFecha2 As String
    Private Sub frmVisorBusGRangoFecha_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rptbus As New rptBusPagoGRangoFecha
        idDVID.Value = vidPagoFecha1
        idDV2ID.Value = vidPagoFecha2
        rptbus.DataSourceConnections(0).SetConnection("Driver={MySQL ODBC 5.2a Driver};Server=localhost;Port=3306;", "bdCoprevi", "root", "123456")
        'CTM QUE ME COSTÓ ENCONTRAR EL STRING DE CONEXION
        rptbus.SetParameterValue(0, idDVID)
        rptbus.SetParameterValue(1, idDV2ID)

        crvBusqueda.ReportSource = rptbus
    End Sub
End Class